10 CLS:PRINT"Verificacion a flexion simple"
20 INPUT"b[cm]=";B,"h[cm]=";H,"d2[cm]=";D2,"A1 tracc[cm]=";A1,"A2 comp[cm]=";A2,"fcd[Kg/cm]=";FCD,"fyd[Kg/cm]=";FYD:D=H-D2:Y=(A1-A2)*FYD/.85/FCD/B:L2=.207*D:L3=D/2:PRINT"d[cm]="D,"y= (A1-A2)*fyd/(0.85*fcd*b)","y[cm]="Y
30 IFY<=0 THENMU=A1*FYD*(D-D2):PRINT"Caso I","y  0","Mu= A1*fyd*(d-d2)","Mu[Kg-cm]="MU:END
40 IFY<L2 THENMU=.85*FCD*B*Y*(D-Y/2):PRINT"Caso II","0 < y < 0.207d","0 <"Y"<"L2,"Dominio 2","Mu= 0.85*fcd*b*y*(d-y/2)","Mu[Kg-cm]="MU:END
50 IFY<=D/2 THENMU=.85*FCD*B*Y*(D-Y/2)+A2*FYD*(D-D2):PRINT"Caso III","0.207d  y  0.5d",ROUND(L2,-5)"";ROUND(Y,-5)"";ROUND(L3,-5),"Dominio 3","Mu= 0.85*fcd*b*y*(d-y/2) +          A2*fyd*(d-d2)","Mu[Kg-cm]="MU:END
60 E=2.1E6:PRINT"Caso IV","y > 0.5d",Y">"L3,"Dominio 4","Resolver las sgtes ecuaciones :","0.85fcd*b*y + A2*fyd - A1*1= 0","0.0035/y = (1/Es)/(0.8*d-y)":INPUT"Es[Kg/cm]= 2.1*10";E
70 A=A1:B1=.0035*A1*E-A2*FYD:C=-A2*FYD*.0035-.0023 DOMINIO-4
310 PRINT " de la armadura long. comprimida mas delgada Qlm[mm]=";:INPUT QLM
320 S=12*QLM/10:CLS:PRINT "separacion S=12=";S;"[cm]"
325 INPUT "adoptar uno de estos diametros 6,8,10";I
327 AT=2*PI*(
100 CLS:CLEAR:PRINT ;"CALCULO DE VIGA CONTINUA"
104 CLS:INPUT "1:(VIGA CONTINUA)2:(MMTO MAX Y NULO )";OP
106 IF OP=1 THEN GOSUB 110
108 IF OP=2 THEN GOSUB 600
110 INPUT "# DE TRAMOS =";N
120 DIM A(N),B(N),C(N+1),D(N),H(N+2),L(N),T(N+1),V(N-1),W(N-1),X(N+1),Y(N)
130 H(0)=1:H(1)=1:G$=" IZQ "
140 GOSUB 500 :D=E:D(0)=U:W(0)=W:V(0)=V:F=0
150 FOR K=1 TO N: CLS : PRINT "TRAMO";K
160 INPUT "LONGITUD=";L
170 IF N>1 THEN  INPUT "INERCIA=",T
180 IF T=0 THEN T=1
190 L(K)=L:T(K)=T:Y(K)=L/T
200 GOSUB 390 :B=L-A:IF I=0 THEN 240
210 A(K)=A(K)+(P*B/3*(L*L-B*B-C*C/4)+M*(B*B+C*C-L*L/3))/L/2
220 B(K)=B(K)+(P*A/3*(L*L-B*B-C*C/4)+M*(B*B+C*C-L*L/3))/L/2
230 C(K)=C(K)+(P*B-M)/L:D(K)=D(K)+(P*A+M)/L:H=H+1:GOTO 200
240 H(K+1)=H+1:NEXT K
250 G$="DERECHA":GOSUB 500:C(N+1)=U
260 IF D<0 THEN W(0)=W(0)-A(1)/L(1)*3
270 IF E<0 THEN W=-B(N)/L(N)*3
280 IF N<2 THEN 330
290 FOR K=1 TO N-1
300 U=(Y(K)+Y(K+1))*2-Y(K)*V(K-1):V(K)=Y(K+1)/U
310 W(K)=-((B(K)/T(K)+A(K+1)/T(K+1))*6+W(K-1)*Y(K))/U
320 NEXT K
330 X(N+1)=(W-W(N-1)*V)/(1-V(N-1)*V)
340 FOR K=N-1 TO 0 STEP -1 :X(K+1)=W(K)-X(K+2)*V(K):NEXT K
350 FOR K=1 TO N : X=(X(K+1)-X(K))/L(K):C(K)=C(K)+X:D(K)=D(K)-X:NEXT K
360 FOR K=1 TO N+1 :A=X(K):B=-D(K-1):C=C(K):D=D(K-1)+C(K):UM$="**="
370 CLS :SET F4: PRINT "APOYO=";K:PRINT  UM$;"M(APOYO)=";A:PRINT UM$;"Q(IZQ)=";B:PRINT UM$;"Q(DER)=";C:PRINT UM$;"REACCIONES=";D
380 GOSUB 580 :NEXT K: CLS:INPUT "HACER OTRO CALCULO (S/N)";U
385 CLS: IF U=S THEN 104 ELSE PRINT "ES UN PLACER TRABAJAR GRACIAS !!": END
390 INPUT "TIPO DE CARGA (1-8.FIN=0)=";I
400 IF I<1 OR I>8 THEN RETURN ELSE ON I GOTO 410,430,470,430,430,430,470,420
410 INPUT "P(CARGA PUNTUAL)=";P,"A(DISTANCIA A CARGA PUNTUAL )=";A:M=0:C=0:RETURN
420 INPUT "MOMENTO=";M,"LONG.VOLADIZO=";A:P=0:C=0:RETURN
430 INPUT "CARGA DISTRIBUIDA=";Q:IF I=5 THEN R=0 ELSE R=Q
440 IF =4 THEN Q=0 ELSE IF I=6 THEN 480
450 IF F=-1 THEN INPUT "C(DISTANCIA DEL VOLADIZO)=";L
460 C=L: A=C/2:GOTO 490
470 INPUT "Q1(MENOR)=";Q:INPUT "Q2(MAYOR)=";R:IF I=3 THEN 450
480 INPUT "C=";C,"A=";A
490 P=C*(Q+R)/2:M=C*C*(R-Q)/12:RETURN
500 E=0:U=0:V=0:W=0:PRINT G$;
510 INPUT "VOLADIZO (S=1,N=0)->";E
520 IF E=1 THEN 550
530 PRINT G$:INPUT "EMPOTRADO(S=1,N=0)->";E
540 IF E=0 THEN RETURN ELSE E=-1:V=1/2 :RETURN
550 PRINT "VOLADIZO"G$:F=-1
560 GOSUB 390 :IF I=0 THEN H(K+1)=H+1:RETURN
570 U=U+P:W=W-M-P*A:H=H+1:GOTO 560
580 IF INKEY$=" "THEN 580 ELSE RETURN
600 CLEAR :CLS: PRINT "***MTO.MAX Y/O MTO.NULO***"
610 INPUT "MTO.IZQ=";MI,"LONG=";L,"CARGA=";Q,"MTO.DER=";MD
620 QI=1/L*((Q*L^2/2)-(MD-MI))
630 PRINT "Q.IZQ=";QI
655 QD=-1/L*((Q*L^2/2)+(MD-MI))
658 PRINT "Q.DER=";QD
660 XM=QI/Q
670 PRINT "X.MAX=";XM
680 MM=QI^2/(2*Q)-MI
690 PRINT "MOM.MAX=";MM
700 LO=SQR((8*MM)/Q)
710 PRINT "LO=";LO
720 X1N=XM-LO/2
730 PRINT "X1 NULO=";X1N
740 X2N=L-X1N-LO
750 PRINT "X2 NULO =";X2N
760 GOTO 104
1300 /3150

